function procedure in qbasic